home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Scope / Scope Disk #058 (199x)(Scope PD)(US)[WB].zip / Scope Disk #058 (199x)(Scope PD)(US)[WB].adf / B1Subs / V-Palette < prev    next >
Text File  |  1989-01-24  |  1KB  |  58 lines
  1.  
  2. '*** NON-ESSENTIALS
  3.   ON BREAK GOSUB Leave
  4.   BREAK ON
  5. 'set up screen and window
  6.   SCREEN 2,320,200,5,1
  7.   WINDOW 2,,,16,2
  8. 'draw some stuff  
  9.   FOR i=1 TO 100
  10.     x=RND*600: y=RND*180
  11.     x2=RND*80: y2=RND*40
  12.     LINE(x,y)-STEP(x2,y2),RND*31.5,bf
  13.   NEXT  
  14.   PRINT "   Loading palette assembly code
  15. '*** END NON-ESSENTIALS
  16.  
  17. 'put this line at start
  18. 'of your program to  
  19. 'load assembly routine
  20.     
  21.   GOSUB InitVPalette  
  22.  
  23. 'use this line when you  
  24. 'want to use palette
  25.   
  26.   GOSUB SubVPalette
  27.  
  28. '*** MORE NON-ESSENTIALS
  29.   PRINT ,"PRESS ANY KEY"  
  30.   WHILE INKEY$>"":WEND  
  31.   WHILE INKEY$="":WEND
  32. Leave:
  33.   WINDOW CLOSE 2
  34.   SCREEN CLOSE 2
  35.  END
  36. '*** END NON-ESSENTIALS 
  37.  
  38. '------------------- Palette routines ------------------------------       
  39. REM -  Assembly palette routines for AmigaBasic programs 
  40. REM -   by Charles VASSALLO  - March 88
  41. REM - (33 route des Traouieros, 22730 Tregastel - France)
  42.  
  43. InitVPalette:
  44.        DIM VPaletteCode%(1860)               :' array integer   
  45.        OPEN ":VPal.code" FOR INPUT AS #1     :' this file contains the code
  46.        i=0  
  47.        WHILE NOT EOF(1)
  48.         INPUT#1,VPaletteCode%(i) : i=i+1     :' loads the code
  49.        WEND
  50.        CLOSE #1 
  51.        RETURN
  52.   
  53. SubVPalette:
  54.        VPal&=VARPTR(VPaletteCode%(0))
  55.        CALL VPal&
  56.        RETURN
  57.  
  58.